home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / unix / amiwin21.lha / Install_AmiWinUpd next >
Text File  |  1995-08-26  |  8KB  |  380 lines
  1. (procedure check-amiwin-version
  2.  (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
  3.  (if (not(= amiwin-version 131084))
  4.   (abort "You do not have AmiWin 2.12 installed.\n");
  5.  )
  6.  (set amiwin-version (getversion (tackon @default-dest "xsd/aga-1.xsd")))
  7.  (if (not(= amiwin-version 131084))
  8.   (abort "Your aga-1.xsd driver does not have the correct version\n");
  9.  )
  10.  (set amiwin-version (getversion (tackon @default-dest "xsd/aga-8.xsd")))
  11.  (if (not(= amiwin-version 131084))
  12.   (abort "Your aga-8.xsd driver does not have the correct version\n");
  13.  )
  14.  (set amiwin-version (getversion (tackon @default-dest "libs/xfont.library")))
  15.  (if (not(= amiwin-version 131084))
  16.   (abort "Your xfont.libray does not have the correct version\n");
  17.  )
  18. )
  19.  
  20. (procedure select-destination-directory
  21.  (set @default-dest
  22.   (askdir
  23.    (prompt "Select the directory where you have "
  24.     "installed AmiWin 2.12 reg. The default is "
  25.     "probably correct.")
  26.    (help "Please specify the directory where you have "
  27.     "installed AmiWin 2.12 reg. The default is "
  28.     "the X11: directory, i.e. the likely place of "
  29.     "your AmiWin installation.")
  30.    (default "X11:")
  31.   )
  32.  )
  33. )  
  34.  
  35. (procedure patchonefile
  36.  (copyfiles
  37.   (source (tackon srcdir srcfile))
  38.   (dest "T:")
  39.   (newname "oldfile")
  40.  )
  41.  
  42.  (working)
  43.  (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:newfile \"-p" pchfile "\" T:oldfile"))
  44.  
  45.  (copyfiles
  46.   (source "T:newfile")
  47.   (dest srcdir)
  48.   (newname srcfile)
  49.  )
  50.  
  51.  (delete "T:oldfile")
  52.  (delete "T:newfile")
  53. )
  54.  
  55. ;;;; Start
  56.  
  57. (set app-name "AmiWin 2.14reg")
  58.  
  59. (complete 0)
  60.  
  61. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  62.  (expandpath @icon))
  63. )
  64.  
  65. (select-destination-directory)
  66.  
  67. (check-amiwin-version)
  68.  
  69.  
  70. (complete 3)
  71.  
  72. (set srcdir (tackon @default-dest "xsd"))
  73. (set srcfile "aga-1.xsd")
  74.  
  75. (if (exists (tackon srcdir srcfile)) (
  76.  (if (= (getsize (tackon srcdir srcfile)) 83040)
  77.   (set pchfile (tackon source-dir "x11/xsd/aga-1-030.pch"))
  78.   (set pchfile (tackon source-dir "x11/xsd/aga-1-000.pch"))
  79.  )
  80.  (patchonefile)
  81. ))
  82.  
  83. (complete 6)
  84.  
  85. (set srcdir (tackon @default-dest "xsd"))
  86. (set srcfile "aga-1.xsd.000")
  87.  
  88. (if (exists (tackon srcdir srcfile)) (
  89.  (set pchfile (tackon source-dir "x11/xsd/aga-1-000.pch"))
  90.  (patchonefile)
  91. ))
  92.  
  93. (complete 9)
  94.  
  95. (set srcdir (tackon @default-dest "xsd"))
  96. (set srcfile "aga-1.xsd.030")
  97.  
  98. (if (exists (tackon srcdir srcfile)) (
  99.  (set pchfile (tackon source-dir "x11/xsd/aga-1-030.pch"))
  100.  (patchonefile)
  101. ))
  102.  
  103.  
  104.  
  105. (complete 12)
  106.  
  107. (set srcdir (tackon @default-dest "xsd"))
  108. (set srcfile "aga-8.xsd")
  109.  
  110. (if (exists (tackon srcdir srcfile)) (
  111.  (if (= (getsize (tackon srcdir srcfile)) 170988)
  112.   (set pchfile (tackon source-dir "x11/xsd/aga-8-030.pch"))
  113.   (set pchfile (tackon source-dir "x11/xsd/aga-8-000.pch"))
  114.  )
  115.  (patchonefile)
  116. ))
  117.  
  118. (complete 15)
  119.  
  120. (set srcdir (tackon @default-dest "xsd"))
  121. (set srcfile "aga-8.xsd.000")
  122.  
  123. (if (exists (tackon srcdir srcfile)) (
  124.  (set pchfile (tackon source-dir "x11/xsd/aga-8-000.pch"))
  125.  (patchonefile)
  126. ))
  127.  
  128. (complete 18)
  129.  
  130. (set srcdir (tackon @default-dest "xsd"))
  131. (set srcfile "aga-8.xsd.030")
  132.  
  133. (if (exists (tackon srcdir srcfile)) (
  134.  (set pchfile (tackon source-dir "x11/xsd/aga-8-030.pch"))
  135.  (patchonefile)
  136. ))
  137.  
  138.  
  139.  
  140. (complete 21)
  141.  
  142. (set srcdir (tackon @default-dest "xsd"))
  143. (set srcfile "rtg-1.xsd")
  144.  
  145. (if (exists (tackon srcdir srcfile)) (
  146.  (if (= (getsize (tackon srcdir srcfile)) 116820)
  147.   (set pchfile (tackon source-dir "x11/xsd/rtg-1-030.pch"))
  148.   (set pchfile (tackon source-dir "x11/xsd/rtg-1-000.pch"))
  149.  )
  150.  (patchonefile)
  151. ))
  152.  
  153. (complete 24)
  154.  
  155. (set srcdir (tackon @default-dest "xsd"))
  156. (set srcfile "rtg-1.xsd.000")
  157.  
  158. (if (exists (tackon srcdir srcfile)) (
  159.  (set pchfile (tackon source-dir "x11/xsd/rtg-1-000.pch"))
  160.  (patchonefile)
  161. ))
  162.  
  163. (complete 27)
  164.  
  165. (set srcdir (tackon @default-dest "xsd"))
  166. (set srcfile "rtg-1.xsd.030")
  167.  
  168. (if (exists (tackon srcdir srcfile)) (
  169.  (set pchfile (tackon source-dir "x11/xsd/rtg-1-030.pch"))
  170.  (patchonefile)
  171. ))
  172.  
  173.  
  174.  
  175.  
  176. (complete 30)
  177.  
  178. (set srcdir (tackon @default-dest "xsd"))
  179. (set srcfile "picasso-l-15.xsd")
  180.  
  181. (if (exists (tackon srcdir srcfile)) (
  182.  (if (= (getsize (tackon srcdir srcfile)) 215464)
  183.   (set pchfile (tackon source-dir "x11/xsd/picasso-l-15-030.pch"))
  184.   (set pchfile (tackon source-dir "x11/xsd/picasso-l-15-000.pch"))
  185.  )
  186.  (patchonefile)
  187. ))
  188.  
  189. (complete 33)
  190.  
  191. (set srcdir (tackon @default-dest "xsd"))
  192. (set srcfile "picasso-l-15.xsd.000")
  193.  
  194. (if (exists (tackon srcdir srcfile)) (
  195.  (set pchfile (tackon source-dir "x11/xsd/picasso-l-15-000.pch"))
  196.  (patchonefile)
  197. ))
  198.  
  199. (complete 36)
  200.  
  201. (set srcdir (tackon @default-dest "xsd"))
  202. (set srcfile "picasso-l-15.xsd.030")
  203.  
  204. (if (exists (tackon srcdir srcfile)) (
  205.  (set pchfile (tackon source-dir "x11/xsd/picasso-l-15-030.pch"))
  206.  (patchonefile)
  207. ))
  208.  
  209.  
  210.  
  211. (complete 39)
  212.  
  213. (set srcdir (tackon @default-dest "xsd"))
  214. (set srcfile "cybergraphx-15.xsd")
  215.  
  216. (if (exists (tackon srcdir srcfile)) (
  217.  (if (= (getsize (tackon srcdir srcfile)) 213416)
  218.   (set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-030.pch"))
  219.   (set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-000.pch"))
  220.  )
  221.  (patchonefile)
  222. ))
  223.  
  224. (complete 42)
  225.  
  226. (set srcdir (tackon @default-dest "xsd"))
  227. (set srcfile "cybergraphx-15.xsd.000")
  228.  
  229. (if (exists (tackon srcdir srcfile)) (
  230.  (set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-000.pch"))
  231.  (patchonefile)
  232. ))
  233.  
  234. (complete 45)
  235.  
  236. (set srcdir (tackon @default-dest "xsd"))
  237. (set srcfile "cybergraphx-15.xsd.030")
  238.  
  239. (if (exists (tackon srcdir srcfile)) (
  240.  (set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-030.pch"))
  241.  (patchonefile)
  242. ))
  243.  
  244.  
  245. (complete 48)
  246.  
  247. (set srcdir (tackon @default-dest "libs"))
  248. (set srcfile "xlib.library")
  249. (set pchfile (tackon source-dir "x11/libs/xlib.pch"))
  250. (patchonefile)
  251.  
  252.  
  253. (complete 51)
  254.  
  255. (set srcdir (tackon @default-dest "libs"))
  256. (set srcfile "xt.library")
  257. (set pchfile (tackon source-dir "x11/libs/xt.pch"))
  258. (patchonefile)
  259.  
  260. (complete 54)
  261.  
  262. (set srcdir (tackon @default-dest "libs"))
  263. (set srcfile "xmu2.library")
  264. (set pchfile (tackon source-dir "x11/libs/xmu2.pch"))
  265. (patchonefile)
  266.  
  267. (complete 57)
  268.  
  269. (set srcdir (tackon @default-dest "libs"))
  270. (set srcfile "xfont.library")
  271. (set pchfile (tackon source-dir "x11/libs/xfont.pch"))
  272. (patchonefile)
  273.  
  274. (complete 60)
  275.  
  276. (set srcdir (tackon @default-dest "bin"))
  277. (set srcfile "AmiWin")
  278. (set pchfile (tackon source-dir "x11/bin/AmiWin.pch"))
  279. (patchonefile)
  280.  
  281. (complete 63)
  282.  
  283. (set srcdir (tackon @default-dest "bin"))
  284. (set srcfile "twm")
  285. (set pchfile (tackon source-dir "x11/bin/twm.pch"))
  286. (patchonefile)
  287.  
  288. (complete 66)
  289.  
  290. (copyfiles
  291.  (source (tackon source-dir "x11/bin/Xmag"))
  292.  (dest "x11:bin")
  293. )
  294.  
  295. (complete 69)
  296.  
  297. (copyfiles
  298.  (source (tackon source-dir "x11/bin/Xstdcmap"))
  299.  (dest "x11:bin")
  300. )
  301.  
  302. (complete 72)
  303.  
  304. (copyfiles
  305.  (source (tackon source-dir "x11/bin/Xclipboard"))
  306.  (dest "x11:bin")
  307. )
  308.  
  309. (complete 75)
  310.  
  311. (copyfiles
  312.  (source (tackon source-dir "x11/bin/Xcutsel"))
  313.  (dest "x11:bin")
  314. )
  315.  
  316. (complete 78)
  317.  
  318. (copyfiles
  319.  (source (tackon source-dir "x11/bin/editres"))
  320.  (dest "x11:bin")
  321. )
  322.  
  323. (complete 81)
  324.  
  325. (copyfiles
  326.  (source (tackon source-dir "x11/lib/x11/app-defaults/Xmag"))
  327.  (dest "x11:lib/x11/app-defaults")
  328. )
  329.  
  330. (complete 84)
  331.  
  332. (copyfiles
  333.  (source (tackon source-dir "x11/lib/x11/app-defaults/Xclipboard"))
  334.  (dest "x11:lib/x11/app-defaults")
  335. )
  336.  
  337. (complete 87)
  338.  
  339. (copyfiles
  340.  (source (tackon source-dir "x11/lib/x11/app-defaults/Editres"))
  341.  (dest "x11:lib/x11/app-defaults")
  342. )
  343.  
  344.  
  345. (complete 90)
  346.  
  347. (set srcdir (tackon @default-dest "help"))
  348. (set srcfile "AmiWin.guide")
  349.  
  350. (if (exists (tackon srcdir srcfile)) (
  351.  (set pchfile (tackon source-dir "x11/help/AmiWin_guide.pch"))
  352.  (patchonefile)
  353. ))
  354.  
  355. (complete 93)
  356.  
  357. (set srcdir (tackon @default-dest "help"))
  358. (set srcfile "AmiWin.ps")
  359.  
  360. (if (exists (tackon srcdir srcfile)) (
  361.  (set pchfile (tackon source-dir "x11/help/AmiWin_ps.pch"))
  362.  (patchonefile)
  363. ))
  364.  
  365. (complete 96)
  366.  
  367. (set srcdir (tackon @default-dest "help"))
  368. (set srcfile "AmiWin.dvi")
  369.  
  370. (if (exists (tackon srcdir srcfile)) (
  371.  (set pchfile (tackon source-dir "x11/help/AmiWin_dvi.pch"))
  372.  (patchonefile)
  373. ))
  374.  
  375.  
  376. (complete 100)
  377.  
  378. (exit "Installation of the update from AmiWin 2.12 reg to "
  379.  "AmiWin 2.14 reg is finished.")
  380.